"kiwishade" <-
structure(list(yield = c(101.11, 108.02, 106.67, 100.3, 92.64, 
103.49, 100.68, 93.42, 100.31, 97, 98.05, 100.74, 105.77, 101.41, 
97.6, 97.42, 103.1, 102.52, 104.02, 104.74, 108.87, 103.14, 108.32, 
101.89, 86.65, 90.75, 87.06, 84.12, 92.17, 93.81, 94.76, 94.05, 
85.4, 81.43, 93.94, 94.91, 92.58, 93.45, 90.29, 91.82, 87.27, 
94.99, 89.06, 90.31, 92.45, 97.57, 97.15, 96.35), block = structure(c(2, 
2, 2, 2, 3, 3, 3, 3, 1, 1, 1, 1, 3, 3, 3, 3, 2, 2, 2, 2, 1, 1, 
1, 1, 3, 3, 3, 3, 2, 2, 2, 2, 1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 
3, 1, 1, 1, 1), .Label = c("east", "north", "west"), class = "factor"), 
    shade = structure(c(4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 1, 
    1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 
    2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3), .Label = c("Aug2Dec", 
    "Dec2Feb", "Feb2May", "none"), class = "factor"), plot = structure(c(8, 
    8, 8, 8, 12, 12, 12, 12, 4, 4, 4, 4, 9, 9, 9, 9, 5, 5, 5, 
    5, 1, 1, 1, 1, 10, 10, 10, 10, 6, 6, 6, 6, 2, 2, 2, 2, 7, 
    7, 7, 7, 11, 11, 11, 11, 3, 3, 3, 3), .Label = c("eastAug2Dec", 
    "eastDec2Feb", "eastFeb2May", "eastnone", "northAug2Dec", 
    "northDec2Feb", "northFeb2May", "northnone", "westAug2Dec", 
    "westDec2Feb", "westFeb2May", "westnone"), class = "factor")), .Names = c("yield", 
"block", "shade", "plot"), row.names = c("1", "2", "3", "4", 
"5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", 
"16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", 
"27", "28", "29", "30", "31", "32", "33", "34", "35", "36", "37", 
"38", "39", "40", "41", "42", "43", "44", "45", "46", "47", "48"
), class = "data.frame")
